home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / mail / YamToolEN.lha / yamtools20english / StartYamTools.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-08-08  |  3.1 KB  |  53 lines
  1. /******************************************************************************/
  2. /*                                                                            */
  3. /*                            YAMTOOLS                                        */
  4. /*                 Copyright ©1997 by Dick Whiting                            */
  5. /*                                                                            */
  6. /*----------------------------------------------------------------------------*/
  7. /*                                                                            */
  8. /* Standard Disclaimer: I wrote it, it works for me, I don't guarantee        */
  9. /* that it will do anything productive for anyone else, etc. etc. ;-)         */
  10. /*                                                                            */
  11. /*HOWEVER, if you DO find a use for it: I homeschool my kids and they         */
  12. /*would love a postcard from where EVER you live.                             */
  13. /*                                                                            */
  14. /*Instant GEOGRAPHY lesson;)                                                  */
  15. /*                                                                            */
  16. /*                                                                            */
  17. /*POSTCARDS:    Dick Whiting                                                  */
  18. /*              28590 S. Beavercreek Rd.                                      */
  19. /*              Mulino, Oregon 97042                                          */
  20. /*              USA                                                           */
  21. /*                                                                            */
  22. /*----------------------------------------------------------------------------*/
  23. /*                                                                            */
  24. /*               Address Bug Reports or Comments to:                          */
  25. /*                Dick Whiting <dwhiting@europa.com>                          */
  26. /*                           28 July 1997                                     */
  27. /*                                                                            */
  28. /******************************************************************************/
  29. /*
  30. $VER: 1.1 Copyright ©1997 by Dick Whiting
  31. $AUTHOR: Dick Whiting
  32. $DESCRIPTION: Add-on Tools for Marcel Beck's wonderful YAM
  33. */
  34. /**************************************************************************/
  35. /*    MuiRexx does not seem to like running MuiRexx from a Rexx Macro     */
  36. /*            so we will create a script and then execute that            */
  37. /**************************************************************************/
  38.  
  39. Parse UPPER source invoked results called rest
  40. rest=subword(rest,1,words(rest)-2)
  41. slpos=lastpos('/',rest)
  42. copos=pos(':',rest)
  43. progdir=strip(substr(rest,1,max(slpos,copos)-1))
  44.  
  45. foo=open('OUT','T:runyt.script','W')
  46. foo=writeln('OUT',"FailAt 999999")
  47. foo=writeln('OUT',"Stack 40000")
  48. foo=writeln('OUT',"CD "||progdir)
  49. foo=writeln('OUT',"run muirexx:muirexx YamTools.rexx PORT YAMTOOLS HELP YamTools.guide")
  50. foo=close('OUT')
  51. address Command 'execute T:runyt.script'
  52. exit
  53.